CAAElliptical_SemiMajorAxisFromPerihelionDistance <-
function(q, e){
.Call("CAAElliptical_SemiMajorAxisFromPerihelionDistance", q, e)
}
